Status Dx de la Base UIID

Llamando librerías

library(ggplot2)
library(dplyr)
library(plotly)

Leemos datos y agregamos Interpretación de Estatus

base<-read.csv("../data/UIID_statusdx.csv",header=T)
class(base)
base<-base%>%
  as_data_frame()%>%
  mutate(EstatusDx=as.character(ESTATUDX),
         EstatusDx=if_else(ESTATUDX==0,"C. Sin IDP",EstatusDx),
         EstatusDx=if_else(ESTATUDX==1,"B. Con IDP",EstatusDx),
         EstatusDx=if_else(ESTATUDX==2,"A. IDP en estudio",EstatusDx))
class(base)
base

gg01_pl<-ggplotly(gg01)

We recommend that you use the dev version of ggplot2 with `ggplotly()`
Install it with: `devtools::install_github('hadley/ggplot2')`

gg01_pl$x$layout$xaxis$title<-"Año de consulta"
gg01_pl$x$layout$yaxis$title<-"densidad"
gg01_pl

• El porcentaje de pacientes diagnosticados con IDP se mantiene constate o estable alrededor del 30%.

• Se observa que antes (2011) había una mayor proporción de casos en los que se descartaba IDP y, que hoy, parte de esa propoción de casos (~30%), pasó a ser IDP en estudio, mostrando ser hoy más minuciosos para confirmar o descartar el diagnóstico.

Agrupando por año

gg02_pl<-ggplotly(gg02)
gg02_pl$x$layout$xaxis$title<-"Año de consulta"
gg02_pl$x$layout$yaxis$title<-"Frecuencia de casos"
gg02_pl